home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 14 / 014.d81 / order blank-pr (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  5KB  |  127 lines
  1. 0 remsave"order blank-pr",8
  2. 50 forx=0to39:l$=l$+"[164]":next
  3. 52 dd$=l$
  4. 60 :
  5. 100 print"[147][217]ou may look at [204]oadstar ordering "
  6. 102 print"information on the screen or the  "
  7. 104 print"printer.":print
  8. 200 print" [201]f you choose printer, your printer"
  9. 202 print"will print an order form.":print:print
  10. 300 print"[211]creen or [208]rinter (s/p)":poke198,0:wait198,1:getz$
  11. 400 ifz$<>"s"andz$<>"p"then300
  12. 500 ifz$="s"then5500
  13. 1050 print"[147][208]lease turn your printer on and put"
  14. 1052 print"the paper at the top of a page."
  15. 1054 print:print"[208]ress a key when you are ready to print.":poke198,0:wait198,1
  16. 1100 open4,4,7:cmd4
  17. 1200 print"                          [204][207][193][196][211][212][193][210] - #14"
  18. 1300 print"                          [208].[207]. [194]ox 30007"
  19. 1400 print"                     [211]hreveport [204][193]  71130-0007":print
  20. 1500 :
  21. 1600 :
  22. 1700 reada$:ifa$="end"then1950
  23. 1800 printa$
  24. 1900 goto1700
  25. 1950 :
  26. 1960 :
  27. 2000 print"[206]ame            :"dd$:print
  28. 2100 print"[193]ddress         :"dd$:print
  29. 2200 print"[195]ity/[211]tate/[218]ip  :"dd$:print
  30. 2400 :
  31. 2402 print"        [198]or diskette orders, use your [213][208][211] delivery address."
  32. 2500 print"                 [193][204][204] [208][210][201][195][197][211][160][201][206][195][204][213][196][197][160][211][200][201][208][208][201][206][199][160][195][200][193][210][199][197][211]"
  33. 2600 print:print:print:print#4:close4
  34. 2700 goto7900
  35. 2800 data" [193] new issue of [204][207][193][196][211][212][193][210] is published every month.  [200]owever, [204][207][193][196][211][212][193][210]
  36. 2900 [131]"does not become dated material.  (NULL)he programs on (NULL)(NULL)atnstr$(NULL)(NULL)atn(NULL) have permanent
  37. 3000 data"value.  [217]ou will want the complete [204][207][193][196][211][212][193][210] collection.  [193]ll past issues
  38. 3100 [131]"starting with number 1 are still available for $9.95 each."
  39. 3200 [131]" (NULL)rder three or more and take one dollar off each issue.  (NULL)rder six or
  40. 3300 data"more and take two dollars off each issue.",
  41. 3400 data" [211]end me the following issue numbers [164][164][164] , [164][164][164] , [164][164][164] , [164][164][164] , [164][164][164] , [164][164][164] ,"
  42. 3500 data"[164][164][164] , [164][164][164] at  $[164][164][164][164][164][164] each."
  43. 3600 data" "
  44. 3700 data"[211][213][194]-[212][207][212][193][204]: $[164][164][164][164][164][164]"
  45. 3800 data,
  46. 3900 data" [211][207][198][212][196][201][211][203] diskettes are double density and punched so that they can be
  47. 4000 [131]"used on both sides.  (NULL)(NULL)asc(NULL)str$right$(NULL)(NULL) diskettes come packed in plastic library
  48. 4002 data"cases (10 to a case) or [196]isk [205]inders (50 per [205]inder) with write"
  49. 4100 data"protect tabs and labels. [160][212]hey sell for $1.50 per disk. "
  50. 4102 data"[215]e also have disks without any case.  [212]hese sell for $1.30 each."
  51. 4200 data"[193]t these prices, we require that you order a minimum of 50 or a"
  52. 4300 data"multiple of 50.  [217]ou get a free head cleaning disk with each 50.",
  53. 4350 data" [195]ases or [205]inders __(circle one)      [194]ulk [196]isks (no frills)"
  54. 4400 data"[164][164][164][164][164][164]  50 at $1.50 each = $ 75    [164][164][164][164][164]  50 at $1.30 = $ 65"
  55. 4500 data"[164][164][164][164][164][164] 100 at $1.50 each = $150    [164][164][164][164][164] 100 at $1.30 = $130"
  56. 4600 data"[164][164][164][164][164][164] 150 at $1.50 each = $225    [164][164][164][164][164] 150 at $1.30 = $195"
  57. 4700 data"[164][164][164][164][164][164] 200 at $1.50 each = $300    [164][164][164][164][164] 200 at $1.30 = $260"
  58. 4800 data" "
  59. 4900 data"[211][213][194]-[212][207][212][193][204]: $[164][164][164][164][164][164]                [211][213][194]-[212][207][212][193][204]: $[164][164][164][164][164]"
  60. 5000 data,
  61. 5002 data" [212]he [204][207][193][196][211][212][193][210] [211]oftware [196]isk series is now available.  [200]ere is a list"
  62. 5004 data"of our current disks and their prices:",,
  63. 5008 data"[164][164][164] [195][200][193][205][197][204][197][207][206] -- $16.95             [164][164][164] [211]ign [208]ainter -- $16.95"
  64. 5010 data"[164][164][164] [215][193][210][208] +    -- $16.95             [164][164][164] [196][207][211] & [196]on'ts -- $ 9.95"
  65. 5020 data""
  66. 5025 data"[211][213][194]-[212][207][212][193][204]: $[164][164][164][164][164][164]",
  67. 5026 data" [204][207][193][196][211][212][193][210] is an official distributor of [195][207][205][193][204] .14. [195][207][205][193][204] combines the
  68. 5027 [131]"structure of (NULL)atn(NULL)lenatn(NULL) with the ease of peekatn(NULL)right$len.  (NULL)rder yourself a copy"
  69. 5028 [131]"today!",,"(NULL)end me totototo copies of len(NULL)(NULL)atn(NULL) .14 for $9.95 each."
  70. 5029 [131],"(NULL)(NULL)peek-(NULL)(NULL)(NULL)atn(NULL): $totototototo",
  71. 5030 [131]"chr$(NULL)atn(NULL)str$ (NULL)(NULL)(NULL)atn(NULL): $totototototo",
  72. 5100 [131]"              toto lenheck    toto (NULL)right$(NULL)atn     toto (NULL)atn(NULL)(NULL)val(NULL) lenatn(NULL)str$"
  73. 5200 :
  74. 5300 [131],"lenard #  :tototototototototototototototototototototototototototo         valxp date: toto / toto / toto"
  75. 5400 [131],"end"
  76. 5500 [153]"load"
  77. 5600 [153]" atn new issue of (NULL)(NULL)atnstr$(NULL)(NULL)atn(NULL) is published ":[153]
  78. 5700 [153]"every month.  left$owever, (NULL)(NULL)atnstr$(NULL)(NULL)atn(NULL) does ":[153]
  79. 5800 [153]"not become dated material.  (NULL)he ":[153]
  80. 5900 [153]"programs on (NULL)(NULL)atnstr$(NULL)(NULL)atn(NULL) have permanent":[153]
  81. 6000 [153]"value.  (NULL)ou will want the complete":[153]
  82. 6100 [153]"(NULL)(NULL)atnstr$(NULL)(NULL)atn(NULL)closecollection.  atnll past issues":[153]
  83. 6200 [153]"starting with number 1 are still":[153]
  84. 6300 [153]"available for $9.95 each.":[153]
  85. 6400 [153]" (NULL)rder 3 or more and take one dollar":[153]
  86. 6500 [153]"off each issue.  (NULL)rder 6 or more and ":[153]
  87. 6600 [153]"take two dollars off each issue.":[153]
  88. 6700 [153]"        <press a key for more>"
  89. 6704 [151]198,0:[146]198,1:[161]z$
  90. 6710 [153]"load  (NULL)he (NULL)(NULL)atnstr$(NULL)(NULL)atn(NULL) (NULL)oftware str$isks are"
  91. 6715 [153]:[153]"available.  (NULL)rder some today."
  92. 6745 [153]:[153]:[153]
  93. 6750 [153]"         (NULL)right$(NULL)(NULL)val(NULL)close(NULL)(NULL)(NULL) atn(NULL)atnright$(NULL)atnpeek(NULL)val:":[153]:[153]
  94. 6755 [153]:[153][166]9)"(NULL)atn(NULL)(NULL)+ -        $16.95"
  95. 6756 [153]:[153][166]9)"(NULL)ign (NULL)ainter - $16.95"
  96. 6757 [153]:[153][166]9)"lenleft$atn(NULL)val(NULL)val(NULL)(NULL) -    $16.95"
  97. 6758 [153]:[153][166]9)"str$(NULL)(NULL) & str$on'ts - $ 9.95"
  98. 6760 [153]"        <press a key for more>"
  99. 6800 [151]198,0:[146]198,1:[161]z$
  100. 6900 [153]"load"
  101. 7000 [153]" (NULL)(NULL)asc(NULL)str$right$(NULL)(NULL) diskettes come fully packaged":[153]
  102. 7100 [153]"and double punched for use on both ":[153]
  103. 7200 [153]"sides.  (NULL)(NULL)asc(NULL)str$right$(NULL)(NULL) disks sell for $1.50":[153]
  104. 7300 [153]"each with a case or $1.30 each":[153]
  105. 7400 [153]"without a case.  atnt these prices, we":[153]
  106. 7410 [153]"require you to buy a minimum of 50":[153]
  107. 7420 [153]"or a multiple of 50.":[153]
  108. 7510 [153]" (NULL)he packaged disks come in plastic":[153]
  109. 7520 [153]"library cases or str$isk (NULL)inders.  (NULL)he":[153]
  110. 7522 [153]"disks come with a head cleaning disk":[153]
  111. 7530 [153]"for each 50 ordered.":[153]
  112. 7600 [143]
  113. 7700 [153]"       <press a key to continue>;":[151]198,0:[146]198,1:[161]z$
  114. 7710 [153]"load (NULL)(NULL)atnstr$(NULL)(NULL)atn(NULL) has become an official ":[153]
  115. 7720 [153]"distributor of len(NULL)(NULL)atn(NULL) .14.  len(NULL)(NULL)atn(NULL) has ":[153]
  116. 7730 [153]"all of the structure of higher languages"
  117. 7740 [153]"like (NULL)atn(NULL)lenatn(NULL).  len(NULL)(NULL)atn(NULL) also includes":[153]
  118. 7750 [153]"additional commands which make graphics":[153]
  119. 7760 [153]"and sound much easier on the len-64.":[153]
  120. 7770 [153]"(NULL)rder your copy of len(NULL)(NULL)atn(NULL) today!  (NULL)he":[153]
  121. 7780 [153]"price is only  $9.95."
  122. 7782 [153]"      (NULL)right$(NULL)atn, (NULL)len, or check accepted."
  123. 7785 [153][166]8)"<press 's' to view again>"
  124. 7800 [151]198,0:[146]198,1:[161]z$:[139]z$[178]"s"[167]5500
  125. 7900 [153]"loadload"[199](34)"order form"[199](34)",8":[1